home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Developer's Kit 1996
/
Delphi Developer's Kit 1996.iso
/
power
/
ctrlkits
/
labelfrm.int
< prev
next >
Wrap
Text File
|
1995-12-22
|
867b
|
37 lines
unit LabelFrm;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TTextOffset = 1..16;
TFramedLabel = class(TLabel)
private
FFrameColor : TColor;
FOffset : TTextOffset;
FShowFrame : Boolean;
procedure SetFrameColor(AColor : TColor);
procedure SetTextOffset(AValue : TTextOffset);
procedure SetShowFrame(ABoolean : Boolean);
protected
procedure Paint; override;
public
constructor Create(Aowner : TComponent); override;
published
property FrameColor: TColor read FFrameColor write SetFrameColor default clBlack;
property TextOffset: TTextOffset read FOffset write SetTextOffset default 1;
property ShowFrame: Boolean read FShowFrame write SetShowFrame default True;
end;
implementation
end.